home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / SEARCH DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  50 lines
  1. 10  REM  **********************
  2. 11  REM  *    SEARCH DEMO     *
  3. 12  REM  * BY EAGLE I. BERNS  *
  4. 13  REM  * COPYRIGHT (C) 1983 *
  5. 14  REM  * BY MICROSPARC, INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 70  HOME 
  9. 80  LOMEM: 16384
  10. 85  PRINT "WORKING"
  11. 90  DIM C$(1001),S$(1001)
  12. 100  PRINT  CHR$(4);"BLOAD SEARCH,A8192"
  13. 110  REM  WHEREVER YOU LOAD IT THE
  14. 120  REM  FOLLOWING (ON A 48K MACHINE)
  15. 130  REM  WILL SET SEARCH CORRECTLY
  16. 140 SEARCH =  PEEK(43634) + PEEK(43635) *256
  17. 150  REM  950 DUMMY ENTRIES ADDED TO
  18. 160  REM  ALLOW A LONG SEARCH AND TO
  19. 170  REM  SHOW ROUTINES EFFECTIVENESS
  20. 180  FOR I = 1 TO 950
  21. 190 S$(I) = "DUMMY"
  22. 200 C$(I) = "DUMMY"
  23. 210  NEXT I
  24. 220  FOR I = 1 TO 50
  25. 230  READ S$(I +950)
  26. 240  NEXT I
  27. 250  FOR J = 1 TO 51
  28. 260  READ C$(J +950)
  29. 270  NEXT J
  30. 280 N = 1000
  31. 290  REM  BOTH VERSIONS INCLUDED TO TEST SPEED
  32. 300  HOME : PRINT " A)PPLESOFT OR M)ACHINE ": PRINT " SEARCH:(ENTER A OR M)"
  33. 310  INPUT T$
  34. 320  IF (T$ < >"A")  AND (T$ < >"M")  THEN 300
  35. 330  PRINT : PRINT : INPUT " ENTER STATE NAME: ";Z$
  36. 340  IF Z$ = "DONE"  THEN  END 
  37. 350  IF T$ = "M"  THEN 400
  38. 360  FOR J = 1 TO 1000
  39. 370  IF S$(J) = Z$  THEN 410
  40. 380  NEXT J
  41. 390  GOTO 410
  42. 400  CALL SEARCH"S$,Z$,N,J"
  43. 410  PRINT : PRINT " THE CAPITAL OF ";Z$;" IS ";C$(J)
  44. 420  GOTO 330
  45. 430  DATA  "ALABAMA","ALASKA","ARIZONA","ARKANSAS","CALIFORNIA","COLORADO","CONNECTICUT","DELAWARE","FLORIDA","GEORGIA","HAWAII","IDAHO","ILLINOIS","INDIANA","IOWA","KANSAS","KENTUCKY","LOUISIANA","MAINE","MARYLAND","MASSACHUSETTS"
  46. 440  DATA  "MICHIGAN","MINNESOTA","MISSISSIPPI","MISSOURI","MONTANA","NEBRASKA","NEVADA","NEW HAMPSHIRE","NEW JERSEY","NEW MEXICO","NEW YORK","NORTH CAROLINA","NORTH DAKOTA","OHIO","OKLAHOMA","OREGON","PENNSYLVANIA","RHODE ISLAND"
  47. 450  DATA  "SOUTH CAROLINA","SOUTH DAKOTA","TENNESSEE","TEXAS","UTAH","VERMONT","VIRGINIA","WASHINGTON","WEST VIRGINIA","WISCONSIN","WYOMING"
  48. 460  DATA  "MONTGOMERY","JUNEAU","PHOENIX","LITTLE ROCK","SACRAMENTO","DENVER ","HARTFORD","DOVER ","TALLAHASSEE","ATLANTA","HONOLULU","BOISE","SPRINGFIELD","INDIANAPOLIS","DES MOINES","TOPEKA","FRANKFORT","BATON ROUGE","AUGUSTA"
  49. 470  DATA  "ANNAPOLIS","BOSTON","LANSING","ST. PAUL","JACKSON","JEFFERSON CITY","HELENA","LINCOLN","CARSON CITY","CONCORD","TRENTON","SANTA FE","ALBANY","RALEIGH","BISMARK","COLUMBUS","OKLAHOMA CITY","SALEM","HARRISBURG","PROVIDENCE"
  50. 480  DATA  "COLUMBIA","PIERRE","NASHVILLE","AUSTIN","SALT LAKE CITY","MONTPELIER","RICHMOND","OLYMPIA","CHARLESTON","MADISON","CHEYENNE","NON-EXISTANT"